home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 September / 1984-09.d64 / cust char loader (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  213b  |  7 lines
  1. 10 input"filename:";n$,d
  2. 20 f$=n$:zk=peek(53)+256*peek(54)-len(f$):poke 782,zk/256
  3. 25 poke781,zk-peek(782)*256:poke780,len(f$):sys65469
  4. 30 poke780,1:poke781,d:poke782,0:sys65466
  5. 40 poke780,0:poke781,222:poke782,169:sys65493
  6. 50 close1:print:print"[147]"chr$(142)
  7.